home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / misc / sci / CDB_106.lha / cdb / CDB_Install < prev    next >
Text File  |  1997-12-05  |  2KB  |  69 lines
  1. ;
  2. ;                       CDB Installation Script
  3. ;
  4. ;                                 by
  5. ;
  6. ;                          Stefano Peruzzi
  7. ;
  8. ;                 first version by Andrea Rafreider
  9. ;
  10.  
  11. (message "\n\nCDB is copyright Steve P.R. Peruzzi 1996\n"
  12.          "\n"
  13.          "Installation script written by Stefano Peruzzi\n")
  14.  
  15. (set @default-dest
  16.         (askdir
  17.                 (prompt "\nChoose the directory where you "
  18.                         "want to install CDB.\n"
  19.                         "A drawer named \"CDB\" will be created "
  20.                         "in the directory you choose.\n")
  21.                 (help   "Here you can specify where you want "
  22.                         "to install CDB.\n"
  23.                         "A drawer named \"CDB\" will be created "
  24.                         "in the directory you choose.\n")
  25.                 (default "WORK:")
  26.         )
  27. )
  28.  
  29. (makedir (tackon @default-dest "CDB"))
  30.  
  31. (set @default-dest (tackon @default-dest "CDB"))
  32.  
  33.  
  34. (copylib
  35.         (source (tackon (pathonly @icon) "CDB"))
  36.         (dest @default-dest)
  37.         (infos)
  38. )
  39.  
  40. (copyfiles
  41.         (source (tackon (pathonly @icon) "CDB.guide"))
  42.         (dest @default-dest)
  43.         (infos)
  44. )
  45.  
  46. (copyfiles
  47.         (source (tackon (pathonly @icon) "CDB.readme"))
  48.         (dest @default-dest)
  49.         (infos)
  50. )
  51.  
  52. (makedir (tackon @default-dest "catalogs"))
  53.  
  54. (copyfiles
  55.         (all)
  56.         (source (tackon (pathonly @icon) "catalogs"))
  57.         (dest   (tackon @default-dest "catalogs"))
  58. )
  59.  
  60. (makedir (tackon @default-dest "data"))
  61.  
  62. (copyfiles
  63.         (all)
  64.         (source (tackon (pathonly @icon) "data"))
  65.         (dest   (tackon @default-dest "data"))
  66. )
  67.  
  68. (message "\nCDB installation completed!\n")
  69.